﻿
Public Class ScannerContext

    Private m_state As LR1TransitionTableRow
    Public ReadOnly Property CurrentState() As LR1TransitionTableRow
        Get
            Return m_state
        End Get
    End Property

    Public Sub New(ByVal state As LR1TransitionTableRow)
        Contract.ArgumentNotNull(state, "state")

        m_state = state
    End Sub
End Class
